home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tq.d64 / tap.inst.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  90 lines
  1. 10 POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147][149][215][197][204][195][207][205][197][160][212][207]:"
  2. 20 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  3. 30 PRINT"[221][146][212][201][206][217] [193][201][196] [208][204][213][211][149][221]"
  4. 40 PRINT"[221][146][201][206][211][212][210][213][195][212][201][207][206][211] [149][221]"
  5. 50 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  6. 60 PRINT"[194]Y [211]TEVE [199]AST"
  7. 70 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  8. 80 GETW$:IFW$=""THEN80
  9. 90 PRINT"[147] [195][200][193][206][199][197]/?/[208][210][201][206][212]#4,/ "
  10. 100 PRINT"[212]HIS COMMAND WILL EXECUTE A GLOBAL"
  11. 110 PRINT"SEARCH AND REPLACE USING THE SLASH"
  12. 120 PRINT"MARKS AS DELIMITERS. [193]S AN EXAMPLE:"
  13. 130 PRINT"[195][200][193][206][199][197]/[208][210][201][206][212]/[208][210][201][206][212]#4,/"
  14. 140 PRINT"[212]HIS COMMAND WILL REPLACE ALL THE"
  15. 150 PRINT"[208][210][201][206][212] COMMANDS WITHIN A PROGRAM IN"
  16. 160 PRINT"BASIC MEMORY TO [208][210][201][206][212]#4, COMMANDS."
  17. 170 PRINT" [198][201][206][196].[199][207][211][213][194].,200- "
  18. 180 PRINT"[212]HIS COMMAND WILL DO A GLOBAL SEARCH OF"
  19. 190 PRINT"A PROGRAM IN BASIC MEMORY. [201]N THE ABOVE"
  20. 200 PRINT"EXAMPLE ALL [199][207][211][213][194] COMMANDS WILL BE"
  21. 210 PRINT"FOUND AND LISTED TO THE SCREEN BY LINE"
  22. 220 PRINT"NUMBER. [212]HE PERIODS ARE THE DELIMITERS"
  23. 230 PRINT"AND THE COMMA [205][213][211][212] BE PLACED AFTER THE"
  24. 240 PRINT"SECOND ONE. [217]OU CAN SEARCH UP TO A GIVEN";
  25. 250 PRINT"LINE # ,-200; BETWEEN SPECIFIED LINE"
  26. 260 PRINT"#'S,100-200;OR FROM A LINE NUMBER ON,"
  27. 270 PRINT"200-; AS IN THE HIGHLIGHTED EXAMPLE."
  28. 280 PRINT"[208][210][197][211][211][160][193][206][217][160][203][197][217][160][212][207][160][195][207][206][212][201][206][213][197]"
  29. 290 GETW$:IFW$=""THEN290
  30. 300 PRINT" [147][196][197][204][197][212][197]100-200 "
  31. 310 PRINT" [212]HIS COMMAND ALLOWS THE DELETION OF"
  32. 320 PRINT"BASIC PROGRAM LINES UP TO [193][206][196] [201][206][195][204][213][196][201][206][199]"
  33. 330 PRINT"A CERTAIN VALUE, -100; [201][206][195][204][213][211][201][214][197][204][217]"
  34. 340 PRINT"BETWEEN TWO VALUES, 100-200; AND FROM A"
  35. 350 PRINT"CERTAIN VALUE ON, 200-."
  36. 360 PRINT" [206][213][205][194][197][210]10,10 "
  37. 370 PRINT"[212]HIS COMMAND ALLOWS RENUMBERING OF A"
  38. 380 PRINT"BASIC PROGRAM. [193]FTER THE [206][213][205][194][197][210] COMMAND"
  39. 390 PRINT"INDICATE THE STARTING NUMBER, A COMMA"
  40. 400 PRINT"AND THE VALUE EACH LINE IS TO BE"
  41. 410 PRINT"INCREMENTED BY."
  42. 420 PRINT" [193][208][208][197][206][196]"CHR$(34)"[PROGRAM NAME]"CHR$(34)",[DRIVE #]"
  43. 430 PRINT"[212]HIS COMMAND WILL APPEND A PROGRAM ON"
  44. 440 PRINT"DISK TO A BASIC PROGRAM IN MEMORY."
  45. 450 PRINT"[212]HIS COMMAND [201][199][206][207][210][197][211] LINE NUMBERS SO BE"
  46. 460 PRINT"SURE LINE NUMBERS ARE UNIQUE. [198]OR"
  47. 470 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  48. 480 GETW$:IFW$=""THEN480
  49. 490 PRINT"[147]EXAMPLE: [193][208][208][197][206][196]"CHR$(34)"[208][210][207][199][210][193][205]"CHR$(34)",8"
  50. 500 PRINT"WILL APPEND A PROGRAM BY THE NAME OF"
  51. 510 PRINT"[208][210][207][199][210][193][205] FROM DEVICE 8(NORMALLY THE 1ST"
  52. 520 PRINT"DISK DRIVE) ONTO WHATEVER BASIC PROGRAM"
  53. 530 PRINT"IS IN MEMORY."
  54. 540 PRINT" [203][201][204][204] "
  55. 550 PRINT"[212]HIS COMMAND WILL DISABLE [194][207][212][200] TINY AID"
  56. 560 PRINT"PLUS AND THE [195]-64 WEDGE."
  57. 570 PRINT" [211][217][211] 51200 "
  58. 580 PRINT"[212]HIS COMMAND WILL REACTIVATE [211]UPER [193]ID"
  59. 590 PRINT"(THE [195]-64 [215]EDGE AND [212]INY [193]ID [208]LUS ONLY)"
  60. 600 PRINT"AFTER A [203][201][204][204] OR @[209] COMMAND HAS BEEN"
  61. 610 PRINT"GIVEN TO DISABLE THE UTILITIES. [196][207] [206][207][212]"
  62. 620 PRINT"[213][211][197] [193][198][212][197][210] [193] [210][197][211][212][207][210][197]/[203] [195][207][205][205][193][206][196]--PLEASE."
  63. 630 PRINT"[206]OTE: [211][217][211] 52224 WILL REACTIVATE THE"
  64. 640 PRINT"[215]EDGE AND [212]INY [193]ID [208]LUS WITHOUT"
  65. 650 PRINT"RESETTING THE OTHER VECTORS AND WITHOUT"
  66. 660 PRINT"CHANGING THE SCREEN COLORS."
  67. 670 PRINT"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"
  68. 680 GETW$:IFW$=""THEN680
  69. 690 PRINTCHR$(14)"[147] [196][207] [217][207][213] [215][201][211][200] [212][207]: "
  70. 700 PRINT"1. [210][213][206] [211][213][208][197][210] [193][201][196]"
  71. 710 PRINT"2. [211][197][197] [196][197][212][193][201][204][197][196] [215][197][196][199][197] [201][206][211][212][210][213][195][212][201][207][206][211]"
  72. 720 PRINT"3. [211][197][197] [211][213][208][197][210] [193][201][196] [199][197][206][197][210][193][204] [195][207][205][205][197][206][212][211]
  73. 730 [153]"4. (null)VALVAL (null)(null)(null)VAL(null) STR$(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  74. 740 [153]"5. (null)VALVAL (null)(null)(null)ATN-(null)(null)(null) RIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)"
  75. 750 [153]"6. VAL(null)RIGHT$(null) (null)LEFT$VAL (null)(null)(null)CHR$(null)ATN(null)"
  76. 760 [153]"VALNTER YOUR NUMBER OF CHOICE"
  77. 770 [161]W$:[139]W$[178]""[167]770
  78. 780 [139]W$[179][177]"1"[175]W$[179][177]"2"[175]W$[179][177]"3"[175]W$[179][177]"4"[175]W$[179][177]"5"[175]W$[179][177]"6"[167]770
  79. 790 W[178][197](W$):[139]W[178]6[167][153]"LOADVERIFY"[199](142):[162]:[128]
  80. 800 [139]W[178]1[167]NP$[178]"SUPER.AID.C"
  81. 810 [139]W[178]2[167]NP$[178]"WEDGE.INST.D"
  82. 820 [139]W[178]3[167]NP$[178]"S.A.COMMENTS.D"
  83. 830 [139]W[178]4[167]NP$[178]"SUPER.DOS.INST.D"
  84. 840 [139]W[178]5[167]NP$[178]"XMON.INST.D"
  85. 850 [153]"LOADSTOPLOAD"[199](34)NP$[199](34)",8"
  86. 860 [151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13
  87. 870 [153][199](142)"VERIFY(null)LENLENLENLENLENLENLENLENLENLENLENRIGHT$"
  88. 880 [153][199](142)"VERIFY(null)WAITPLEASE WAITVERIFY(null)"
  89. 890 [153][199](142)"VERIFYMID$LENLENLENLENLENLENLENLENLENLENLEN(null)WAITSTOP":[128]
  90.